with Pair;
with Properties;
with Ada.Text_IO;

procedure Test_Properties is

   procedure Print (Props : in Properties.Pairs_Type) is
   begin
      for I in Props'Range loop
         Ada.Text_IO.Put ("|");
         Ada.Text_IO.Put (Pair.Key (Props(I)));
         Ada.Text_IO.Put ("| -- |");
         Ada.Text_IO.Put (Pair.Value (Props(I)));
         Ada.Text_IO.Put_Line ("|");
      end loop;
   end;


begin
   Print (Properties.Get_Properties ("properties.txt"));
end Test_Properties;
